load("02_20_m5s_forum_lda.RData")
require(topicmodels)
df <- terms(lda, 10)
View(df)